home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / C / LIB / UNIXLIB37B / !UnixLib37 / src / stdio / c / fpos < prev    next >
Text File  |  1996-11-09  |  2KB  |  107 lines
  1. /****************************************************************************
  2.  *
  3.  * $Source: /unixb/home/unixlib/source/unixlib37/src/stdio/c/RCS/fpos,v $
  4.  * $Date: 1996/05/06 09:01:34 $
  5.  * $Revision: 1.2 $
  6.  * $State: Rel $
  7.  * $Author: unixlib $
  8.  *
  9.  * $Log: fpos,v $
  10.  * Revision 1.2  1996/05/06 09:01:34  unixlib
  11.  * Updates to sources made by Nick Burrett, Peter Burwood and Simon Callan.
  12.  * Saved for 3.7a release.
  13.  *
  14.  * Revision 1.1  1996/04/19 21:32:42  simon
  15.  * Initial revision
  16.  *
  17.  ***************************************************************************/
  18.  
  19. static const char rcs_id[] = "$Id: fpos,v 1.2 1996/05/06 09:01:34 unixlib Rel $";
  20.  
  21. #include <errno.h>
  22. #include <stdlib.h>
  23. #include <stdio.h>
  24. #include <unistd.h>
  25.  
  26. __STDIOLIB__
  27.  
  28. int
  29. fgetpos (register FILE * f, register fpos_t * p)
  30. {
  31.   long i;
  32.  
  33.   i = ftell (f);
  34.   if (i < 0)
  35.     return ((int) i);
  36.   *p = (fpos_t) i;
  37.   return (0);
  38. }
  39.  
  40. int
  41. fsetpos (register FILE * f, register const fpos_t * p)
  42. {
  43.   return (fseek (f, (long) (*p), 0));
  44. }
  45.  
  46. int
  47. fseek (register FILE * f, long p, int w)
  48. {
  49.   long c;
  50.  
  51.   if (!fisopen (f))
  52.     return (-1);
  53.   c = ftell (f);
  54.   fflush (f);
  55.   if (f->flag & _IOERR)
  56.     return (-1);
  57.   f->flag &= ~_IOEOF;
  58.  
  59.   if (w == SEEK_SET)
  60.     {
  61.       if ((c = lseek (f->fd, p, 0)) < 0)
  62.     goto err;
  63.     }
  64.   else if (w == SEEK_CUR)
  65.     {
  66.       if ((c = lseek (f->fd, p + c, 0)) < 0)
  67.     goto err;
  68.     }
  69.   else if (w == SEEK_END)
  70.     {
  71.       if ((c = lseek (f->fd, p, 2)) < 0)
  72.     goto err;
  73.     }
  74.   else
  75.     return (-1);
  76.  
  77.   f->pos = (fpos_t) c;
  78.  
  79.   return (0);
  80.  
  81.   {
  82.   err:
  83.     f->flag |= _IOERR;
  84.     return (-1);
  85.   }
  86. }
  87.  
  88. long
  89. ftell (register FILE * f)
  90. {
  91.   if (!fisopen (f))
  92.     return (-1);
  93.   if (f->i_base)
  94.     return (f->pos - (long) f->i_cnt);
  95.   else if (f->o_base)
  96.     return (f->pos + (long) (f->o_ptr - f->o_base));
  97.   else
  98.     return (f->pos);
  99. }
  100.  
  101. void
  102. rewind (register FILE * f)
  103. {
  104.   fseek (f, 0L, 0);
  105.   clearerr (f);
  106. }
  107.